﻿'Public Class Form13
'    Private Sub Form13_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
'        Me.Tbl_thuTableAdapter.Fill(Me.Test4DataSet.tbl_thu)
'        Me.Tbl_testTableAdapter.Fill(Me.Test4DataSet.tbl_test)
'        Me.Tbl_testIUltraGrid.setDoiTuongXuLyDuLieu(Me.Test4DataSet.tbl_test, Me.Tbl_testBindingSource, Me.Tbl_testTableAdapter, Me.Test4DataSet)
'        Me.Tbl_testIUltraGrid.setGiaoDienTuDong()
'        Me.Tbl_testIUltraGrid.setChoPhepThemDong()
'        Me.Tbl_testIUltraGrid.setChoPhepMenuStrip()
'        Me.Tbl_testIUltraGrid.setTimKiemTrenCotUltraGrid()
'        'lấy tên từ ultradropdown qua ultragrid
'        Dim ht As Hashtable = New Hashtable
'        ht.Add("ten", "ten")
'        Me.Tbl_testIUltraGrid.setThemIUltraDropDown(Me.Tbl_thuIUltraDropDown, Me.Test4DataSet.tbl_thu, ht)
'        Me.Tbl_thuIUltraDropDown.setGiaoDien()
'        Me.Tbl_thuIUltraGrid.setDoiTuongXuLyDuLieu(Me.Test4DataSet.tbl_thu, Me.Tbl_thuBindingSource, Me.Tbl_thuTableAdapter, Me.Test4DataSet)
'        Me.Tbl_thuIUltraGrid.setChoPhepMenuStrip()
'        Me.Tbl_thuIUltraGrid.setGiaoDienTuDong()

'    End Sub

'    Private Sub UltraButton1_Click(sender As System.Object, e As System.EventArgs) Handles UltraButton1.Click

'        'Me.Test4DataSet.tbl_test.Merge(Me.GetNewRecords)
'        ' Me.Tbl_testTableAdapter.Update(Me.Test4DataSet.tbl_test)
'        For index = 0 To GetNewRecords.Count - 1
'            MessageBox.Show(index)
'        Next


'    End Sub
'    Private Function GetNewRecords() As test4DataSet.tbl_testDataTable

'        Return CType(Test4DataSet.tbl_test.GetChanges(Data.DataRowState.Deleted),  _
'            test4DataSet.tbl_testDataTable)
'    End Function
'End Class